home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 13 / MacFormat n. 13 (Spain) / Macformat 13.bin / Shareware Internet / Desarrolladores / MoreFiles 1.4.1 / Sharing.p < prev    next >
Encoding:
Text File  |  1995-12-21  |  3.4 KB  |  115 lines
  1. UNIT Sharing;
  2.  
  3.  
  4.  
  5. {    Apple Macintosh Developer Technical Support                                }
  6. {                                                                            }
  7. {    PBShare, PBUnshare, and PBGetUGEnty (should be in Files.p but isn't.)    }
  8. {                                                                            }
  9. {    by Jim Luther, Apple Developer Technical Support                        }
  10. {                                                                            }
  11. {    File:        Sharing.p                                                    }
  12. {                                                                            }
  13. {    Copyright © 1992-1994 Apple Computer, Inc.                                }
  14. {    All rights reserved.                                                    }
  15. {                                                                            }
  16. {    You may incorporate this sample code into your applications without        }
  17. {    restriction, though the sample code has been provided "AS IS" and the    }
  18. {    responsibility for its operation is 100% yours.  However, what you are    }
  19. {    not permitted to do is to redistribute the source as "DSC Sample Code"    }
  20. {    after having made changes. If you're going to re-distribute the source,    }
  21. {    we require that you make it clear in the source that the code was        }
  22. {    descended from Apple Sample Code, but that you've made changes.            }
  23.  
  24.  
  25. INTERFACE
  26.  
  27.     FUNCTION PBShare (paramBlock: HParmBlkPtr;
  28.                                     async: BOOLEAN): OSErr;
  29.     INLINE
  30.         $101F,  { MOVE.B     (A7)+,D0   }
  31.         $205F,  { MOVEA.L    (A7)+,A0   }
  32.         $6606,  { BNE.S      *+$0008    }
  33.         $7042,  { MOVEQ      #$42,D0    }
  34.         $A260,  { _FSDispatch,Immed     }
  35.         $6004,  { BRA.S      *+$0006    }
  36.         $7042,  { MOVEQ      #$42,D0    }
  37.         $A660,  { _FSDispatch,Sys,Immed }
  38.         $3E80;  { MOVE.W     D0,(A7)    }
  39.  
  40.     FUNCTION PBShareSync (paramBlock: HParmBlkPtr): OSErr;
  41.     INLINE
  42.         $205F,  { MOVEA.L    (A7)+,A0   }
  43.         $7042,  { MOVEQ      #$42,D0    }
  44.         $A260,  { _FSDispatch,Immed     }
  45.         $3E80;  { MOVE.W     D0,(A7)    }
  46.  
  47.     FUNCTION PBShareAsync (paramBlock: HParmBlkPtr): OSErr;
  48.     INLINE
  49.         $205F,  { MOVEA.L    (A7)+,A0   }
  50.         $7042,  { MOVEQ      #$42,D0    }
  51.         $A660,  { _FSDispatch,Sys,Immed }
  52.         $3E80;  { MOVE.W     D0,(A7)    }
  53.  
  54.  
  55.  
  56.     FUNCTION PBUnshare (paramBlock: HParmBlkPtr;
  57.                                     async: BOOLEAN): OSErr;
  58.     INLINE
  59.         $101F,  { MOVE.B     (A7)+,D0   }
  60.         $205F,  { MOVEA.L    (A7)+,A0   }
  61.         $6606,  { BNE.S      *+$0008    }
  62.         $7043,  { MOVEQ      #$43,D0    }
  63.         $A260,  { _FSDispatch,Immed     }
  64.         $6004,  { BRA.S      *+$0006    }
  65.         $7043,  { MOVEQ      #$43,D0    }
  66.         $A660,  { _FSDispatch,Sys,Immed }
  67.         $3E80;  { MOVE.W     D0,(A7)    }
  68.  
  69.     FUNCTION PBUnshareSync (paramBlock: HParmBlkPtr): OSErr;
  70.     INLINE
  71.         $205F,  { MOVEA.L    (A7)+,A0   }
  72.         $7043,  { MOVEQ      #$43,D0    }
  73.         $A260,  { _FSDispatch,Immed     }
  74.         $3E80;  { MOVE.W     D0,(A7)    }
  75.  
  76.     FUNCTION PBUnshareAsync (paramBlock: HParmBlkPtr): OSErr;
  77.     INLINE
  78.         $205F,  { MOVEA.L    (A7)+,A0   }
  79.         $7043,  { MOVEQ      #$43,D0    }
  80.         $A660,  { _FSDispatch,Sys,Immed }
  81.         $3E80;  { MOVE.W     D0,(A7)    }
  82.  
  83.  
  84.  
  85.     FUNCTION PBGetUGEntry (paramBlock: HParmBlkPtr;
  86.                                     async: BOOLEAN): OSErr;
  87.     INLINE
  88.         $101F,  { MOVE.B     (A7)+,D0   }
  89.         $205F,  { MOVEA.L    (A7)+,A0   }
  90.         $6606,  { BNE.S      *+$0008    }
  91.         $7044,  { MOVEQ      #$44,D0    }
  92.         $A260,  { _FSDispatch,Immed     }
  93.         $6004,  { BRA.S      *+$0006    }
  94.         $7044,  { MOVEQ      #$44,D0    }
  95.         $A660,  { _FSDispatch,Sys,Immed }
  96.         $3E80;  { MOVE.W     D0,(A7)    }
  97.  
  98.     FUNCTION PBGetUGEntrySync (paramBlock: HParmBlkPtr): OSErr;
  99.     INLINE
  100.         $205F,  { MOVEA.L    (A7)+,A0   }
  101.         $7044,  { MOVEQ      #$44,D0    }
  102.         $A260,  { _FSDispatch,Immed     }
  103.         $3E80;  { MOVE.W     D0,(A7)    }
  104.  
  105.     FUNCTION PBGetUGEntryAsync (paramBlock: HParmBlkPtr): OSErr;
  106.     INLINE
  107.         $205F,  { MOVEA.L    (A7)+,A0   }
  108.         $7044,  { MOVEQ      #$44,D0    }
  109.         $A660,  { _FSDispatch,Sys,Immed }
  110.         $3E80;  { MOVE.W     D0,(A7)    }
  111.  
  112.  
  113. IMPLEMENTATION
  114.  
  115. END.